home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 4 / Precision Software Applications Silver Collection Volume 4 (1993).iso / database / sr_info.exe / SRILOGON.PRG < prev    next >
Text File  |  1990-04-11  |  2KB  |  48 lines
  1. *** PCILOGON.PRG **
  2. **  (C) Copyright 1990, Sub Rosa Publishing Inc.
  3. **  A demonstration program provided to SR-Info and VP-Info users.
  4. **  This program may be copied freely. If it is used in commercial code,
  5. **  please credit the source, Sub Rosa Publishing Inc.
  6. **
  7. **  PCILOGON demonstrates the use of color command to paint blocks.
  8. **  THE sign-on screen for SR-Info was designed from this test code.
  9. **  PCILOGON is compatible with all current versions of SR-Info and VP-Info.
  10. IF :color <> 7
  11.    SET color to 31; white on blue
  12. ENDIF
  13. ERASE
  14. COLOR :color,3,16,9,57,178
  15. DELAY .1
  16. COLOR :color,2,28,10,32,32 ; main block S
  17. DELAY .1
  18. COLOR :color,7,16,8 ,25,32 ; bottom large hole in S
  19. DELAY .1
  20. COLOR :color,3,45,9,50,32 ; main block R
  21. DELAY .1
  22. COLOR :color,6,48,6,49,178 ; the '-'
  23. DELAY .1
  24. COLOR :color,4,51,8,52,32 ; left hollow of 'I'
  25. DELAY .1
  26. COLOR :color,4,35,5,42,32 ; top hollow of 'R'
  27. DELAY .1
  28. COLOR :color,4,56,8,57,32 ; right hollow of 'I'
  29. DELAY .1
  30. COLOR :color,4,18,5,28,32 ; top hollow of 'S'
  31. DELAY .1
  32. COLOR :color,7,35,10,41,32 ; bottom main hollow of R
  33. DELAY .1
  34. COLOR :color,7,44,10,45,32 ; outside of tail of R
  35. DELAY .2
  36. @ 12,10 say 'SR-Info 3.10   (C) Copyright 1984-90, Sub Rosa Inc.'
  37. @ 13,10 say 'Thank you for trying out our Shareware Data Base Software.'
  38. @ 14,10 say 'As Shareware you are welcome to try before you buy as well as'
  39. @ 15,10 say 'to distribute copies within the United States and Canada.'
  40. @ 16,10 say 'Before placing copies on bulletin boards sysops are asked'
  41. @ 17,10 say 'to advise Sub Rosa Publishing Inc. (416) 398-8414.'
  42. @ 24,53 say 'Press F10 to enter SR-Info.'
  43. DUMMY = 50
  44. DO WHILE dummy <> 324 ; Info code for F10
  45.    DUMMY = inkey()
  46. ENDDO
  47. *** SRILOGON.PRG **
  48.